lrline Interface

interface
public function lrline(xu, yu, xv1, yv1, xv2, yv2, dv) result(rst)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: xu

The x-coordinate of the point whose position relative to the directed line is to be determined.

real(kind=real64), intent(in) :: yu

The y-coordinate of the point whose position relative to the directed line is to be determined.

real(kind=real64), intent(in) :: xv1

The x-coordinate of the first point that defines the base line.

real(kind=real64), intent(in) :: yv1

The y-coordinate of the first point that defines the base line.

real(kind=real64), intent(in) :: xv2

The x-coordinate of the second point that defines the base line.

real(kind=real64), intent(in) :: yv2

The y-coordinate of the second point that defines the base line.

real(kind=real64), intent(in) :: dv

The signed distance of the directed line from the directed base line through the points (XV1,YV1) and (XV2,YV2). DV is positive for a line to the left of the base line.

Return Value integer(kind=int32)

+1, the point is to the right of the directed line; 0, the point is on the directed line; -1, the point is to the left of the directed line.

Description

Determines if a point is left of, right of, or on a directed line.

The directed line is parallel to, and at a signed distance DV from a directed base line from (XV1,YV1) to (XV2,YV2).